
   5 CLEAR ;BC=0;FC=157;NT=1;CY=24;INPUT " SPACE DEBRIS? 1-100"S;IF S>100GOTO 5
  10 CY=0;INPUT " ENEMY FIRE RATE? 1-25"C;C=C+5;IF C>30GOTO 10
  15 CY=-24;INPUT " YOUR FIRE RATE? 1-20"K;IF K>20GOTO 15
  20 CLEAR ;G=17;J=0;F=-40;X=-5;Y=-42;LINE X,Y,4;Q=0;T=0;R=0;D=8;@(7)=0;&(19)=175
  25 X=X+RND (5)+3;Y=Y+RND (5)+3;IF (X>78)+(Y>40)X=79;Y=40
  30 LINE X,Y,1;IF X#79GOTO 25
  35 Y=-42;FOR X=-5TO 79;LINE X,-42,4;IF PX(X,Y)GOTO 70
  40 FOR A=1TO 88;IF PX(X,Y+A)Y=Y+A;GOTO 70
  50 NEXT A
  70 LINE X,Y,1;NEXT X;&(0)=0;&(1)=0;&(2)=0;&(3)=0
  75 H=RND (7);E=RND (7);IF E=HGOTO 75
  80 BOX 0,-42,160,1,1;FOR A=1TO S
  90 X=RND (160)-80;Y=RND (80)-40;IF PX(X,Y)GOTO 90
 100 BOX X,Y,1,1,3;NEXT A;&(9)=G;X=0;FOR A=1TO 7;FOR N=-42TO 40;IF PX(X,N)NEXT N
 115 @(A)=N;IF @(7)>36D=7;GOTO 135
 120 MU=16;MU=14;IF (E=A)+(H=A)GOSUB 300;X=X+11;NEXT A;GOTO 135
 130 GOSUB 310;X=X+11;NEXT A
 135 X=-11;A=0
 140 X=X+11;T=T+J;J=0;A=A+1;G=G+3;&(9)=G;IF (A=H)+(A=E)GOTO 350
 145 IF (A=D)+(Q=1)R=(R×212)-(T×12);&(9)=50;CY=32;PRINT "     YOUR SCORE:",#1,R;STOP
 150 BOX F,B,5,1,2;BOX F,B,1,3,2;B=&(28)÷3-43;IF B<-37B=-37
 155 BOX F,B,5,1,1;BOX F,B,1,3,1;L=RND (C);IF L=5GOSUB 400
 160 IF &(16)=16GOSUB 450
 170 GOTO 150
 300 BOX X,@(A),7,1,3;LINE X-3,@(A)+1,4=XY;LINE X-2,@(A)+2,3;BOX X-2,@(A)+3,4,1,3;RETURN 
 310 BOX X,@(A),7,1,3;BOX X-2,@(A)+2,1,3,3;RETURN 
 350 O=8;W=16;N=50;FOR Z=8TO 17;BOX F,B,5,1,2;BOX F,B,1,3,2;B=&(28)÷3-43;IF B<-37B=-37
 355 IF N=B W=10;O=5
 360 U=B-O;Y=RND (W)+U;N=B;W=16;O=8;BOX F,B,5,1,1;BOX F,B,1,3,1
 370 BOX X,@(A)+3,1,1,3;BOX X-4,@(A)+3,1,1,3;LINE X-5,@(A)+3,4=XY;P=XY;LINE F,Y,3;XY=P;LINE F,Y,3;IF B=YGOTO 550
 380 &(20)=9;&(22)=255;BOX X,@(A)+3,1,1,3;&(18)=Z;BOX X-4,@(A)+3,1,1,3;&(22)=0;NEXT Z;&(20)=0;GOSUB 300;GOTO 140
 400 LINE X-4,@(A)+3,4=XY;P=XY;U=B-8;Y=RND (16)+U;MU=14;MU=14;LINE F,Y,3;XY=P;LINE F,Y,3;IF B=YGOTO 550
 410 RETURN 
 450 J=J+1;FOR Z=-35TO 79;IF PX(Z,B)FOR Y=1TO 10;BC=FC;MU=Y;BC=0;BOX Z-1,B,2,1,2;NEXT Y;GOTO 470
 460 BOX Z,B,1,1,1;MU=16;BOX Z-2,B,1,1,2;NEXT Z
 470 IF Z>=X-3IF B<@(A)+4IF B>@(A)-1GOTO 500
 480 IF J=KGOSUB 310;GOTO 140
 490 RETURN 
 500 V=255;&(21)=255;FOR I=-2TO 2;LINE Z,B,4;&(23)=V;LINE I×RND (3)+X,B+RND (5)+2,1;BC=FC
 510 MU=M;V=V-58;BC=0;NEXT I;&(21)=0;R=R+1;GOTO 140
 550 CY=B;CX=F;PRINT "*";BOX F-1,B,3,3,2;NT=2;&(21)=255;BOX F,B,6,6,2;FOR N=255TO 20STEP -3;BC=FC;MU=M;&(23)=N
 560 BC=0;NEXT N;&(21)=0;&(20)=0;Q=1;GOTO 145
:RETURN ;RUN 
>